Imports System
Imports System.Data.OleDb
Imports System.Data.Sql
Imports MySql.Data.MySqlClient


  Dim conn As New MySqlConnection
        Dim myCommand As New MySqlCommand
        Dim myReader As MySqlDataReader

        ProgressBar1.Value = 10
        ProgressBar1.Refresh()

        conn = New MySqlConnection
        conn.ConnectionString = "server=" & Servidor & ";user id=" & UsuarioSql & ";port=" & Porta & ";password=" & senhaSQL & ";database=" & NomeDoBanco

        Try
            conn.Open()
        Catch ex As Exception
            MsgBox("Erro de leitura no banco de dados : " & Err.Description)
        End Try

 


    myCommand.Connection = conn
                myCommand.CommandText = MySql
                myCommand.ExecuteNonQuery()